home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / iocs2.bas < prev    next >
BASIC Source File  |  1995-06-17  |  611b  |  24 lines
  1.  
  2.  /* iocs() サンプルその２
  3.  /* テキスト画面にランダムに直線を引きます。
  4.  
  5. int i,a1adr,x0,y0,x1,y1
  6. int TXLINE=&hd5
  7. dim char a1(6*2-1)
  8.  /*
  9. a1adr=_arp(a1)    /* a1 のデータ部分のアドレス
  10. for i=0 to 999
  11. x0=int(rnd()*768)
  12. x1=int(rnd()*768)
  13. y0=int(rnd()*512)
  14. y1=int(rnd()*512)
  15. wpoke( a1adr, i and 1, x0, y0, x1-x0, y1-y0, &hffff )
  16.  /*  0(a1).w : 書き込むプレーン ( 0-3 )
  17.  /*  2(a1).w : 始点の x 座標
  18.  /*  4(a1).w : 始点の y 座標
  19.  /*  6(a1).w : 直線のベクトルの x 方向の成分
  20.  /*  8(a1).w : 直線のベクトルの y 方向の成分
  21.  /* 10(a1).w : ラインスタイル ( &h0000-&hffff )
  22. iocs( TXLINE,,,,,, a1)
  23. next
  24.